home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 13
/
AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso
/
rexx
/
flushcx.sirexx
< prev
next >
Wrap
Text File
|
1997-10-06
|
805b
|
50 lines
/* This will close all running commodities */
options results
signal on error
address 'INSPECTOR.1'
/* Select the Commodities list. */
GetDisplay ; currentdisplay = result
If currentdisplay ~= 1 Then SetDisplay 1
/* We don't want to be bothered with requesters */
GetPrefs Confirm ; oldconfirm = result
if oldconfirm = "ON" Then SetPrefs Confirm OFF
/* Work on all items */
counter = 0
done = 0
Do while done = 0
SelectNode Num counter ; if result = "ERROR" then done = 1
If done = 0 Then Do
GetNodeInfo 1 ; nodename = result
RemoveNode
GetStatus ; status = result
If Left(status,14) = 'Error removing' Then Do
counter = counter + 1 /* Go to the next one. */
End
End
End
/* Restore the Confirm setting */
SetPrefs Confirm oldconfirm